
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 B u t t o n   1   T e x t   " R U N   T E S T " 
 
 B u t t o n   2   T e x t   " Z E R O " 
 
 B u t t o n   3   T e x t   " I N   P O W E R " 
 
 B u t t o n   4   T e x t   " I N   M E M O R Y " 
 
 B u t t o n   5   T e x t   " I N   U S B 3 " 
 
 B u t t o n   6   T e x t   " I N   U S B C " 
 
 B u t t o n   7   T e x t   " I N   H D M I " 
 
 B u t t o n   8   T e x t   " I N   U S B P W R " 
 
 B u t t o n   9   T e x t   " I N   H E A R S E T " 
 
 B u t t o n   1 0   T e x t   " P E N   D O W N " 
 
 B u t t o n   1 1   T e x t   " A L L   O U T " 
 
 B u t t o n   1 2   T e x t   " R O T A T E   H O R Z " 
 
 B u t t o n   1 3   T e x t   " R O T A T E   M I D L " 
 
 
 
 B u t t o n   1 5   T e x t   " P O W E R   C Y C L E " 
 
 B u t t o n   1 6   T e x t   " C L O S E   A L L " 
 
 
 
 
 
 S t o p 
 
 
 
 
 
 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '     S E Q U E N C E   L O A D I N G   A N D   E X E C U T I O N 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 V a r i a b l e   S t r i n g   S e q u e n c e F i l e N a m e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e 
 
 V a r i a b l e   S t r i n g   S e q u e n c e C m d 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e I n d e x 
 
 V a r i a b l e   N u m e r i c   S e q u e n c e L e n g t h 
 
 
 
 L a b e l   E x e c S e q u e n c e 
 
 	 L o a d   S e q u e n c e   S e q u e n c e F i l e N a m e 
 
 	 I f   L e n ( S e q u e n c e )   =   0 
 
 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 P r i n t   C R L F   +   "   S e q u e n c e   f i l e   n o t   f o u n d :   "   +   S e q u e n c e F i l e N a m e 
 
 	 	 B e e p 
 
 	 	 S t o p 
 
 	 E n d I f 
 
 	 S e q u e n c e L e n g t h   =   G e t S e p a r a t e d S t r i n g C o u n t ( S e q u e n c e ,   C R L F ) 
 
 	 F o r   S e q u e n c e I n d e x   =   0   T o   S e q u e n c e L e n g t h - 1 
 
 	 	 S e q u e n c e C m d   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e ,   S e q u e n c e I n d e x ,   C R L F ) 
 
 	 	 S e q u e n c e C m d   =   R e p l a c e ( S e q u e n c e C m d ,   C h r ( 9 ) ,   "   " )   ' T A B S   t o   S P A C E S 
 
 	 	 S e q u e n c e C m d   =   R e m o v e C o m m e n t s ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   T r i m ( S e q u e n c e C m d ) 
 
 	 	 S e q u e n c e C m d   =   U C a s e ( S e q u e n c e C m d ) 
 
 	 	 ' 
 
 	 	 P r i n t   "   E x e c u t i n g   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 ' 
 
 	 	 S e l e c t   S e q u e n c e C m d 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " Z E R O " 
 
 	 	 	 	 G o s u b   Z E R O 
 
 	 	 	 C a s e   " A L L   O U T " 
 
 	 	 	 	 G o s u b   A L L   O U T 
 
 	 	 	 C a s e   " P O W E R   I N " 
 
 	 	 	 	 G o s u b   P O W E R   I N 
 
 	 	 	 C a s e   " E N A B L E   M O T O R S " 
 
 	 	 	 	 G o s u b   E N A B L E   M O T O R S 
 
 	 	 	 C a s e   " D I S A B L E   M O T O R S " 
 
 	 	 	 	 G o s u b   D I S A B L E   M O T O R S 
 
 	 	 	 C a s e   " P E N   U P " 
 
 	 	 	 	 G o s u b   P E N   U P 
 
 	 	 	 C a s e   " P E N   D O W N " 
 
 	 	 	 	 G o s u b   P E N   D O W N 
 
 	 	 	 C a s e   " P E N   A C T I O N " 
 
 	 	 	 	 G o s u b   P E N   A C T I O N 
 
 	 	 	 C a s e   " P O W E R   C Y C L E " 
 
 	 	 	 	 G o s u b   P O W E R   C Y C L E 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e   " H D M I   I N " 
 
 	 	 	 	 G o s u b   H D M I   I N 
 
 	 	 	 C a s e   " H D M I   O U T " 
 
 	 	 	 	 G o s u b   H D M I   O U T 
 
 	 	 	 C a s e   " U S B 3   I N " 
 
 	 	 	 	 G o s u b   U S B 3   I N 
 
 	 	 	 C a s e   " U S B 3   O U T " 
 
 	 	 	 	 G o s u b   U S B 3   O U T 
 
 	 	 	 C a s e   " U S B C   I N " 
 
 	 	 	 	 G o s u b   U S B C   I N 
 
 	 	 	 C a s e   " U S B C   O U T " 
 
 	 	 	 	 G o s u b   U S B C   O U T 
 
 	 	 	 C a s e   " U S B P W R   I N " 
 
 	 	 	 	 G o s u b   U S B P W R   I N 
 
 	 	 	 C a s e   " U S B P W R   O U T " 
 
 	 	 	 	 G o s u b   U S B P W R   O U T 
 
 	 	 	 C a s e   " P O W E R   I N " 
 
 	 	 	 	 G o s u b   P O W E R   I N 
 
 	 	 	 C a s e   " P O W E R   O U T " 
 
 	 	 	 	 G o s u b   P O W E R   O U T 
 
 	 	 	 C a s e   " M E M O R Y   I N " 
 
 	 	 	 	 G o s u b   M E M O R Y   I N 
 
 	 	 	 C a s e   " M E M O R Y   O U T " 
 
 	 	 	 	 G o s u b   M E M O R Y   O U T 
 
 	 	 	 C a s e   " H E A R S E T   I N " 
 
 	 	 	 	 G o s u b   H E A R S E T   I N 
 
 	 	 	 C a s e   " H E A R S E T   O U T " 
 
 	 	 	 	 G o s u b   H E A R S E T   O U T 
 
 	 	 	 C a s e   " R O T A T E   V E R T " 
 
 	 	 	 	 G o s u b   R O T A T E   V E R T 
 
 	 	 	 C a s e   " R O T A T E   M I D L " 
 
 	 	 	 	 G o s u b   R O T A T E   M I D L 
 
 	 	 	 C a s e   " R O T A T E   H O R Z " 
 
 	 	 	 	 G o s u b   R O T A T E   H O R Z 
 
 	 	 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 	 	 	 C a s e E l s e 
 
 	 	 	 	 s 1   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   0 ) 
 
 	 	 	 	 S e l e c t   s 1 
 
 	 	 	 	 	 C a s e   " M O V E " 
 
 	 	 	 	 	 	 D e s t X   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 	 D e s t Y   =   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   2 ) 
 
 	 	 	 	 	 	 G o s u b   C o r e X Y _ M o v e T o D e s t X Y _ A n d W a i t 
 
 	 	 	 	 	 C a s e   " P A U S E " 
 
 	 	 	 	 	 	 W a i t   S e c o n d s   G e t S e p a r a t e d S t r i n g ( S e q u e n c e C m d ,   1 ) 
 
 	 	 	 	 	 C a s e E l s e 
 
 	 	 	 	 	 	 I f   s 1   < >   " " 
 
 	 	 	 	 	 	 	 C o n t r o l s   O p e n T e x t B o x 
 
 	 	 	 	 	 	 	 P r i n t   C R L F   +   "   U n r e c o g n i z e d   c o m m a n d :   "   +   S e q u e n c e C m d 
 
 	 	 	 	 	 	 	 B e e p 
 
 	 	 	 	 	 	 	 S t o p 
 
 	 	 	 	 	 	 E n d I f 
 
 	 	 	 	 E n d S e l e c t 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 
 
 V a r i a b l e   N u m e r i c   D e s t X 
 
 V a r i a b l e   N u m e r i c   D e s t Y 
 
 V a r i a b l e   N u m e r i c   S l o t R o t H V _ D r i v e 
 
 V a r i a b l e   N u m e r i c   S l o t R o t H V _ C u r r e n t 
 
 V a r i a b l e   N u m e r i c   S l o t R o t H V _ M a x C u r r e n t 
 
 
 
 L a b e l   R O T A T E   H O R Z 
 
 	 S l o t   9 9 8   =   1 0 0 0 	 	 	 ' s t a r t   S i g n a l   S c o p e 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   0 
 
 	 W a i t   S e c o n d s   0 . 3 
 
 	 F o r   v 1   =   1   T o   1 3 0 0                 '   < < <   1 0 0 0   =   1 0   s e c   t i m e o u t   ( a p p r o x ) 
 
 	 	 W a i t   S e c o n d s   0 . 0 0 9 
 
 	 	 I f   S l o t ( S l o t R o t H V _ C u r r e n t )   >   S l o t R o t H V _ M a x C u r r e n t 
 
 	 	 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 	 	 S l o t   9 9 8   =   0 	 ' s t o p   S i g n a l   S c o p e 
 
 	 	 	 B u t t o n   1 2   T e x t   R O T A T E   V E R T 
 
 	 	 	 G o t o   e x i t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t   S l o t R o t H V _ D r i v e   =   5 0 0 
 
 	 S l o t   9 9 8   =   0 	 	 	 ' s t o p   S i g n a l   S c o p e 
 
 	 B u t t o n   1 2   T e x t   R O T A T E   V E R T 
 
 	 ' 
 
 L a b e l   e x i t 
 
 R e t u r n 
 
 
 
 
 
 